 |
 |
 |
 |
#151155 - 04/13/02 07:48 AM
[6.3.x] [beta] Chat Mod 1.2
|
Admin / Code Breaker
Registered: 03/24/01
Posts: 7396
|
My first mod, ported to 6.3  Here we go: Name: Chat Mod Description: Lets you chat with jIRC. It has full CP support, it's 100% wordletized, it automatically gets the nick of the user/GuestXXXXX (5 random digits) if it's a guest, replaces smilies with real smilies, shows how many people are currently chatting and even invites people to the chatroom (by Recent Visitors, thanks to Olson). Demo: http://www.lkworld.com Link: ZIP File or MultiHack File Requirements: UBB™ 6.3.0 Beta Release 1.0 , Mod Wordlets , jPilot License (unless you want to see an "unregistered" line after every line) Number of downloads: [img]http://www.ubbdev.com/lk/num.php?s=chat.zip,chat.mhp[/img] Special thanks to: Ryan Olson for Invitation Script, Brett (raiyan) for JavaScript idea, dj_rava for the Admin Command Buttons idea and Troy for MultiHack, hosting and supporting me all the way  . Screenshots: Forum Summary , Chat Window , CP
_________________________
 My Hacks Page (will be back with UBB 7!) UBBDev - We put the class into UBB.classic!
|
|
Top
|
|
|
|
 |
 |
 |
 |
|
|
|
|
#151164 - 04/14/02 05:34 PM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Member
Registered: 06/02/01
Posts: 285
Loc: Florida
|
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151166 - 04/20/02 11:34 AM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Member
Registered: 01/28/01
Posts: 45
Loc: Manassas, Virginia
|
Where it says to look for this... </font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">quote:</font><hr /><font size="2" face="Verdana, Helvetica, sans-serif"> sub OpenFileAsVar { push (@openedfiles, $_[0]); local (*FILE); local ($str); if (-e "$_[0]") { my $handle = $filehandle->open('file', 'readonly', $_[0]); $str = $handle->readfile(); $filehandle->close($handle); } else { &CheckCachedFile($_[0]); } chomp($str); </font><hr /></blockquote><font size="2" face="Verdana, Helvetica, sans-serif">It is actually: </font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">quote:</font><hr /><font size="2" face="Verdana, Helvetica, sans-serif"> push (@openedfiles, $_[0]); local (*FILE); local ($str); if (&FileExists($_[0])) { my $handle = $filehandle->open('file', 'readonly', $_[0]); $str = $handle->readfile(); $filehandle->close($handle); } else { &CheckCachedFile($_[0]); } chomp($str); </font><hr /></blockquote><font size="2" face="Verdana, Helvetica, sans-serif">The part that is different: In your code you have </font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">quote:</font><hr /><font size="2" face="Verdana, Helvetica, sans-serif"> if (-e "$_[0]") { </font><hr /></blockquote><font size="2" face="Verdana, Helvetica, sans-serif">In the ubb 6.3X file it is: </font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">quote:</font><hr /><font size="2" face="Verdana, Helvetica, sans-serif"> if (&FileExists($_[0])) { </font><hr /></blockquote><font size="2" face="Verdana, Helvetica, sans-serif">At least it was that way for me.
_________________________
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151181 - 05/10/02 02:47 PM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Admin / Code Breaker
Registered: 03/24/01
Posts: 7396
|
Blame Qasic  Open ultimatebb.cgi. Find: wordlet_mods Replace with: wordlets_mods Open vars_wordlets_mods.cgi. Try to find: wordlet_mods Replace with: wordlets_mods If even 1 of them is there, it should work after fixing it. If not, do you have AIM/ICQ/MSN?
_________________________
My Hacks Page (will be back with UBB 7!) UBBDev - We put the class into UBB.classic!
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151185 - 05/15/02 06:04 AM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Junior Member
Registered: 04/21/01
Posts: 18
|
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151209 - 07/31/02 02:59 AM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Member
Registered: 02/15/01
Posts: 230
|
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151223 - 09/12/02 03:01 AM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Member
Registered: 05/12/01
Posts: 176
Loc: Hannover
|
Hehe, yes I know, but I need a german version. Perhaps I´ll upgrade when UBB is Version 6.6 *g* One Question - we were 5 People in the chat yesterday evening from 10 to 12 PM. My system shows me that there are over 2900 Hits on the chat.cgi yesterday. I didn´t expect hat it reloads so much - when I open it to the public, there will be around 10 or 20 times the traffic. So are there just so much hits because it is also loaded when the category pages are loaded ? Then there would be no increase from yesterday to any time. But if that traffic is just because of 5 persons, my virtual webhoster will kill my account today Any help ? Best regards, Dennis
_________________________
Regards Dennis Bode
-----------------------------
Webmaster of Hardwareluxx.com
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151249 - 09/25/02 01:58 AM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Junior Member
Registered: 09/11/02
Posts: 26
|
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151254 - 10/15/02 10:53 AM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Coder
Registered: 06/10/01
Posts: 705
Loc: CT
|
LK, I am running your chat mod on my 6.1.0.4 system. I noticed that your new version includes a drop down for sounds. Could you tell me where and what code to place so I can do the same?
Thanx
_________________________
...Steven Hostboard.com Running UBB v6.1.0.4 Doing what NO other UBB in the world is doing. The first & only production UBB powered by MySQL.
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151255 - 10/16/02 04:09 PM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Member
Registered: 03/17/01
Posts: 34
|
quote:
Originally posted by FilAm Basketball:
Hey LK,
Still trying to figure out why the chat summary is not displaying on my forum summary page.
Any other ideas? If you get it working can you tell me as i am having the same problem and when i try going to ultimatebb.cgi?ubb=chat it tells me: You are attempting to reach a page that does not exist. » Please use your browser's back button to return. Any ideas? SSJ
_________________________
I have <img src="http://www.ubbdev.com/ud/?u=Chris Oakley&s=1" alt=" - " /> points.
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151257 - 10/16/02 09:57 PM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Coder
Registered: 06/10/01
Posts: 705
Loc: CT
|
LK, thanx! But what file does this go into and after/before what?
_________________________
...Steven Hostboard.com Running UBB v6.1.0.4 Doing what NO other UBB in the world is doing. The first & only production UBB powered by MySQL.
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151259 - 10/17/02 12:40 AM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Coder
Registered: 06/10/01
Posts: 705
Loc: CT
|
Ok tried to place it after one of those lines and nothing appeared. Here is the section I was using: $Graemlins .= qq~
</td></tr>
$TBB
</td></tr></table>
~;
}
$ImportantButtons = qq~<table width="$vars_chat{Width}" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td width="100%">~;
if ($vars_chat{Invite}) {
$ImportantButtons .= qq~<font face="$vars_style{FontFace}" size="$vars_style{TextSize}"><a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=newinvite" target="_blank"><img src="chat_envelope.gif" alt="$vars_wordlets_mods{chat_send_invitation}" border="0" /> $vars_wordlets_mods{chat_send_invitation}</a></font></td>~;
}
if ($vars_chat{Sound}) {
local(*DIR);
opendir(DIR, "$vars_config{NonCGIPath}") || die "can't opendir NonCGI dir: $!";
my @sounds = grep { /sound_.*?.au/ } readdir(DIR);
closedir DIR;
$ImportantButtons .= qq~<td align="center">n<form id="sound">n<select id="sounds" onchange="if(sound.sounds.options[sound.sounds.selectedIndex].value != '') { jchat.processJInput('/s '+sound.sounds.options[sound.sounds.selectedIndex].value) }">n<option value="" selected="selected">$vars_wordlets_mods{chat_sounds}</option>n<option value="">------------</option>n~;
my $upname; my $regname;
foreach(@sounds) {
$_ =~ m/sound_(.*?).au/;
$upname = $regname = $1;
$upname =~ s/$upname/u$upname/;
$ImportantButtons .= "<option value="$regname">$upname</option>n";
}
$ImportantButtons .= "</select>n</td>";
}Here is the link if you need it: http://www.hostboard.com/cgi-bin/ultimatebb.cgi?ubb=chat ...
_________________________
...Steven Hostboard.com Running UBB v6.1.0.4 Doing what NO other UBB in the world is doing. The first & only production UBB powered by MySQL.
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151261 - 10/17/02 10:43 AM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Coder
Registered: 06/10/01
Posts: 705
Loc: CT
|
Hey now for someone who know zero perl I am getting by pretty well  But isn't that part of the code you just told me to add?
_________________________
...Steven Hostboard.com Running UBB v6.1.0.4 Doing what NO other UBB in the world is doing. The first & only production UBB powered by MySQL.
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151267 - 10/17/02 02:16 PM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Member
Registered: 03/17/01
Posts: 34
|
code:</font><hr /> if ($ubb eq 'chat') {
&RequireCode("$vars_config{CGIPath}/ubb_chat.cgi");
&chat;
exit(0);
}
if ($vars_chat{Invite}) {
if ($ubb eq 'newinvite') {
&RequireCode("$vars_config{CGIPath}/ubb_chat.cgi");
&invite_form("$vars_wordlets_mods{invite_message}");
exit(0);
}
if ($ubb eq 'invite') {
&GetOrPost("POST");
&RequireCode("$vars_config{CGIPath}/ubb_chat.cgi");
&invite;
exit(0);
}
}
<hr /></blockquote>That is what i'm adding in ulitmatebb.cgi right? <blockquote><font class="small">code: [qb] # forum summary
if ($ubb eq '') {
&RequireCode("$vars_config{CGIPath}/ubb_forum_summary.cgi");
&forum_summary;
exit(0); [/qb] Under that? SSJ
_________________________
I have <img src="http://www.ubbdev.com/ud/?u=Chris Oakley&s=1" alt=" - " /> points.
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151272 - 10/22/02 07:06 AM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Admin / Code Breaker
Registered: 03/24/01
Posts: 7396
|
Thanks to http://www.vwcorrado.de , we have a TCL version for the eggdrop: it shows the exact details about chat visitors. untested. TCL file: http://www.ubbdev.com/ubb/upload/00004463/userlist.zip Instructions: What I did to chat.cgi was:
if ($in{f} eq 'topic') {
my @file = &OpenFileAsArray("$vars_config{MembersPath}/chat.cgi");
my $chat_topic = $file[0];
my $chat_user = $file[1];
my $chat_counter = $chat_user =~ tr/,/,/s;
$chat_counter++;
$chat_topic =~ s/</</g;
$chat_topic =~ s/>/>/g;
$chat_topic =~ s/"/"/g;
if (length($chat_topic) > 55) {
$chat_topic = substr($chat_topic,0,54);
$chat_topic .= "[...]";
}
$ChatHTML .= "Aktuelle Besucher: $chat_counter</b> - Thema: '$chat_topic'";
$ChatHTML =~ s/"/\"/isg;
print "Content-type:
text/javascriptnndocument.write("$ChatHTML");"; exit(0);
}
if ($in{f} eq 'summary') {
my @file = &OpenFileAsArray("$vars_config{MembersPath}/chat.cgi");
my $chat_topic = $file[0];
my $chat_user = $file[1];
my $chat_counter = $chat_user =~ tr/,/,/s;
$chat_counter++;
my $ChatHTML;
$ChatHTML .= "$chat_user";
$ChatHTML =~ s/"/\"/isg;
print "Content-type:
text/javascriptnndocument.write("$ChatHTML");"; exit(0);
}That is instead of everything between if ($in{f} eq 'summary') { and }.
_________________________
My Hacks Page (will be back with UBB 7!) UBBDev - We put the class into UBB.classic!
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151273 - 10/22/02 07:38 AM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Member
Registered: 03/29/01
Posts: 49
|
Additionaly, you should put a code:</font><hr /> <script type="text/javascript" src="$vars_config{CGIURL}/chat.cgi?f=topic"></script> <hr /></blockquote>in public_forum_summary.html where you would like to display the topic. I did it just right after $vars_wordlets_mods{chat} I put this code after $Top .= $pntf_locations[1]; <blockquote><font class="small">code: [qb] $Top .= qq~
<tr bgcolor="$vars_style{CategoryStripColor}">
<td colspan="8">
<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=chat"><font size="1" face="$vars_style{FontFace}" color="$vars_style{CategoryStripTextColor}"><b>$vars_wordlets_mods{chat} - <script type="text/javascript" src="$vars_config{CGIURL}/chat.cgi?f=topic"></script></font></a>
</td>
</tr>
<tr>
<td bgcolor="$vars_style{AltColumnColor1}" valign="top" align="center"><img src="$vars_config{NonCGIURL}/chat.gif" border="0" alt="" /></td>
<td colspan="6" bgcolor="$vars_style{AltColumnColor2}">
<font size="1" face="$vars_style{FontFace}">
<script type="text/javascript" src="$vars_config{CGIURL}/chat.cgi?f=summary"></script>
</font></td></tr>
~;[/qb] and deleted the other chat-display-stuff in "sub PageBottom {"
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151280 - 11/05/02 11:59 PM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Admin / Code Breaker
Registered: 03/24/01
Posts: 7396
|
1. ubb_chat.cgi, under: code:</font><hr /> $nick .= $vars_chat{Extension} if $vars_chat{Extension};<hr /></blockquote>Add<blockquote><font class="small">code: [qb] $nick =~ s/Webmaster/W3bmaster/i; [/qb] 2. no 3. I don't think it's possible, the IRC server generates it... 4. I have no idea, but in chat settings you can choose to show some more fields in the connection box, enable all of them and try to find something similar
_________________________
My Hacks Page (will be back with UBB 7!) UBBDev - We put the class into UBB.classic!
|
|
Top
|
|
|
|
|
|
|
|
|
|
|
|
|
#151308 - 04/21/04 12:54 PM
Re: [6.3.x] [beta] Chat Mod 1.2
|
Master Hacker
Registered: 01/25/03
Posts: 3765
Loc: Saint Johns, PA
|
|
|
Top
|
|
|
|
|
|
|
|
|
|
Previous Topic
Index